home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / misc / 2b_Ort.lha / Ort / ARexx / TEditorSugeruj.rexx < prev    next >
OS/2 REXX Batch file  |  1999-02-10  |  1KB  |  52 lines
  1. /*
  2. $ver: TEditorSugeruj.rexx 1.0 (05.09.98) BLABLA PRODUCT
  3. © 1998 Siumot/BlaBla
  4.  
  5. Ten skrypt jest przeznaczony dla gadûetu MUI o nazwie TextEditor.
  6. Wyôwietla on podobne wyrazy do wyrazu, na którym znajdowaî sië kursor
  7. podczas przyciôniëcia klawisza help. Ten skrypt bëdzie wykorzystywany
  8. przez wszystkie programy korzystajâce z gadûetu TextEditor (np. YAM).
  9.  
  10. Instalacja:
  11. 1. Skopiowaê skrypt do katalogu "rexx:"
  12. 2. Uruchomiê program konfiguracyjny MUI
  13. 3. Wybraê konfiguracjë klasy TextEditor
  14. 4. Wybraê stronë "Korekta"
  15. 5. Przestawiê gadûet cykliczny "Sugerowanie" na "ARexx"
  16. 6. Do gadûetu tekstowego leûâcego obok gadûetu cyklicznego wpisaê tekst
  17.    o treôci: rexx:TEditorSugeruj.rexx "%s"
  18. 7. Zapisaê konfiguracjë
  19.  
  20. UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu instalatorem Orta,
  21.          to musisz dopisaê nastëpujâcâ linië:
  22.          ORTFILENAME=ôcieûka dostëpu/Ort
  23.      Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
  24.          do programu Ort (np. ORTFILENAME=dh2:tekst/ort/ort).
  25. */
  26.  
  27. OPTIONS RESULTS
  28.  
  29. parse arg wyraz
  30.  
  31. IF ~SHOW('P', '2b_Ort_rexx') THEN DO
  32.    IF ORTFILENAME='ORTFILENAME' THEN DO
  33.      Say 'Program Ort nie jest uruchomiony.'
  34.      EXIT
  35.    END
  36.    ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'" CX_POPUP'
  37.    ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
  38. END
  39.  
  40. ADDRESS '2b_Ort_rexx'
  41.  
  42. podpowiedz=''
  43. IF ~(wyraz='') THEN DO
  44.   get suggest wyraz
  45.   IF ~(RESULT='RESULT') THEN podpowiedz=RESULT
  46. END
  47.  
  48. Open('f', 'T:Matches', 'W')
  49.   WriteCH('f',podpowiedz)
  50. Close('f')
  51. EXIT
  52.